home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / undopalette.clssa < prev    next >
Text File  |  1995-01-20  |  629b  |  25 lines
  1. /***********************************************************************
  2.   GADGET: "'Hole Palette'" "6" 22 TYP: "?"
  3.  
  4.   $DAT >>UnDoPalette.clssa<<  29.09.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.   GetAnimInfo
  15.   IF RESULT~="" THEN DO
  16.     Liste=GetClip("clPalette")
  17.     IF Liste~="" THEN  SetColor Liste
  18.     ELSE Message "'Keine Palette gespeichert.'"
  19.   END
  20.   ELSE Message "'Keine Animation vorhanden!'"
  21.  
  22.   FailAt AltFail
  23. exit
  24.  
  25.